home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 155 / 155.d81 / ft.shuttle launc (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  1KB  |  30 lines
  1. 10 rem----shuttle launch----
  2. 12 poke53280,0:poke53281,6
  3. 13 dv=peek(186):ifdv<8thendv=8
  4. 14 poke53272,31
  5. 15 print"[147][211]tart the countdown...":print"[212]ime to launch:";
  6. 20 v=53248:s=54273:b=3:poke2040,13:poke2041,14:forj=842to919:readk:pokej,k
  7. 25 next
  8. 30 forj=0to2:readk,l:pokes+k,l:next:forj=0to8:readk,l:pokev+k,l:next
  9. 35 rem getk$:ifk$=""then35
  10. 40 forc=9to0step-1:printc;"[157][157][157]";:pokes+23,15:pokes+23,0:fort=0to950:next
  11. 45 next
  12. 50 fory=245to40step-1:pokev+1,y-40:pokev+3,y:pokev+23,b
  13. 55 b=1:pokes+23,(y/15)-2:pokes,y/6
  14. 60 next
  15. 65 data16,0,0,124,0,0,254,0,8,254,32,28,254,112,62,130,248,62,56
  16. 70 data248,62,84,248,62,124,248,60,124,120,57,109,56,57,109,56,35,109
  17. 75 data136,15,109,224,63,125,248,254,0,254,0,108,0,20,0,80,0,0,16,0,8,56
  18. 80 data32,28,124,112,62,124,248,28,56,112,28,56,112,8,56,32,0,16,0,4,128
  19. 85 data5,128,3,129,21,3,23,1,39,1,40,8,0,220,2,220,1,207,3,245,33,6
  20. 90 data248,62,84,248,62,124,248,60,124,120,57,109,56,57,109,56,35,109
  21. 110 data32,28,124,112,62,124,248,28,56,112,28,56,112,8,56,32,0,16,0,4,128
  22. 120 data5,128,3,129,21,3,23,1,39,1,40,8,0,220,2,220,1,207,3,245,33,6
  23. 150 poke53269,0:fort=1to3000:next
  24. 155 print"[147]"
  25. 160 print"new"
  26. 165 print"load"chr$(34)"ft.menu"chr$(34)","dv
  27. 170 print"run"
  28. 175 print"":poke631,13:poke632,13:poke633,13:poke198,3:end
  29. 10000 d=peek(186):n$="ft.shuttle launc":open15,d,15,"s0:"+n$:close15:saven$,d:end
  30.